home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Origami / bindings / amiga.keys < prev    next >
Text File  |  1996-09-26  |  13KB  |  442 lines
  1. {{{  Notes about this keybinding
  2. ; These bindings are written for the amiga version of origami (1.6.75)
  3. ;
  4. ; They use the emacs.keys bindings and define some addition keybinds for
  5. ; usage of menus, mouse, cursor keys and numberpad
  6. ; Some functions defined in emacs.keys are not implemented like spell-it or
  7. ; translate-word.
  8. ;
  9. ; Thomas Hadig
  10. ;
  11. ; Version 1.2b
  12. }}}
  13.  
  14. @use (MOUSE)
  15. @lib amiga.alias
  16.  
  17. @lib emacs.keys
  18.  
  19. {{{  Mouse-Handling
  20. @lib go-mouse
  21. (mouse-buttons
  22.   emori-go-mouse-position)
  23. }}}
  24.  
  25. {{{  aliases
  26. {{{  edit
  27. ;(mode edit
  28. ; (keybind backward-character ($left))
  29. ; (keybind forward-character ($right))
  30. ; (keybind previous-line ($up))
  31. ; (keybind next-line ($down))
  32. ; (keybind previous-page ($prev_page))
  33. ; (keybind next-page ($next_page))
  34. ; (keybind up-buffer (M-C-X $up))
  35. ; (keybind down-buffer (M-C-X $down))
  36. ; (keybind left-buffer (M-C-X $left))
  37. ; (keybind right-buffer (M-C-X $right))
  38. ;)
  39. }}}
  40. {{{  para
  41. ;(mode para
  42. ; (keybind backward-character ($left))
  43. ; (keybind forward-character ($right))
  44. ; (keybind previous-line ($up))
  45. ; (keybind next-line ($down))
  46. ;)
  47. }}}
  48. }}}
  49.  
  50. {{{  NumKeys
  51. {{{  edit
  52. (mode edit
  53.  (keybind backward-character ($csrl))
  54.  (keybind forward-character  ($csrr))
  55.  (keybind previous-line      ($csru))
  56.  (keybind next-line          ($csrd))
  57. ; (keybind beginning-of-line  ($home))
  58. ; (keybind end-of-line        ($end))
  59.  (keybind forward-word       ($ctcsrr))
  60.  (keybind backward-word      ($ctcsrl))
  61.  (keybind beginning-of-fold  ($ctprev_page))
  62.  (keybind end-of-fold        ($ctnext_page))
  63.  
  64.  (keybind redraw-display     ($csi "F "A ".))
  65.  (keybind add-mode-overwrite ($del))
  66.  (keybind delete-mode-overwrite ($ins))
  67.  
  68.  (keybind paired-brackets       ($csi "F "A "Z))
  69.  (keybind "]                    ($csi "F "A "[))
  70.  (keybind paired-curly-brackets ($csi "F "B "Z))
  71.  (keybind "}                    ($csi "F "B "[))
  72.  (keybind "/                    ($csi "F "A "\))
  73.  (keybind "*                    ($csi "F "A "]))
  74.  (keybind "-                    ($csi "F "A "J))
  75.  (keybind "+                    ($csi "F "A "^))
  76.  (keybind newline-and-indent    ($csi "F "A "C))
  77. )
  78. }}}
  79. {{{  para
  80. (mode para
  81.  (keybind backward-character ($csrl))
  82.  (keybind forward-character  ($csrr))
  83.  (keybind previous-line      ($csru))
  84.  (keybind next-line          ($csrd))
  85.  
  86.  (keybind "[                    ($csi "F "A "Z))
  87.  (keybind "]                    ($csi "F "A "[))
  88.  (keybind "{                    ($csi "F "B "Z))
  89.  (keybind "}                    ($csi "F "B "[))
  90.  (keybind "/                    ($csi "F "A "\))
  91.  (keybind "*                    ($csi "F "A "]))
  92.  (keybind "-                    ($csi "F "A "J))
  93.  (keybind "+                    ($csi "F "A "^))
  94.  (keybind newline-and-indent    ($csi "F "A "C))
  95. )
  96. }}}
  97. }}}
  98. {{{  Menus
  99. ; use this only in conjunction with .origamimenu file in HOME directory
  100.  
  101. {{{  view-file
  102. (deffun view-file
  103. (
  104.  read-file
  105.  "/
  106.  newline-and-indent
  107.  add-mode-view
  108. ))
  109. }}}
  110. {{{  exit-file
  111. (deffun edit-exit-file
  112. (
  113.  save-file
  114.  emori-exit-origami
  115. ))
  116. }}}
  117. {{{  open-line
  118. (deffun open-line
  119. (
  120.  end-of-line
  121.  newline-and-indent
  122. ))
  123. }}}
  124. {{{  edit-only
  125. (deffun edit-only
  126. (
  127.  message ( "[function " only " in " edit " modus]" )
  128. ))
  129. }}}
  130.  
  131. {{{  mode edit
  132. ( mode edit
  133.  {{{  project menu
  134.  (keybind  edit-exit-file  ($menu "0 "5))
  135.  (keybind  read-file       ($menu "0 "0))
  136.  (keybind  view-file       ($menu "0 "1))
  137.  (keybind  insert-file     ($menu "0 "2))
  138.  (keybind  save-file       ($menu "0 "3))
  139.  (keybind  write-file      ($menu "0 "4))
  140.  (keybind  shell           ($menu "0 "6))
  141.  (keybind  shell-command   ($menu "0 "7))
  142.  (keybind  emori-exit-origami    ($menu "0 "8))
  143.  }}}
  144.  
  145.  {{{  edit menu
  146.  (keybind  transpose-characters      ($menu "1 "0))
  147.  (keybind  delete-line               ($menu "1 "1))
  148.  (keybind  undo-delete-line          ($menu "1 "2))
  149.  (keybind  delete-to-end-of-line     ($menu "1 "3))
  150.  (keybind  copy-to-kill-buffer       ($menu "1 "4))
  151.  (keybind  insert-folded-kill-buffer ($menu "1 "5))
  152.  }}}
  153.  
  154.  {{{  fold menu
  155.  (keybind  open-fold          ($menu "2 "0))
  156.  (keybind  close-fold         ($menu "2 "1))
  157.  (keybind  enter-fold         ($menu "2 "2))
  158.  (keybind  exit-fold          ($menu "2 "3))
  159.  (keybind  unfold-fold        ($menu "2 "4))
  160.  (keybind  create-fold        ($menu "2 "5))
  161.  (keybind  toggle-file-fold   ($menu "2 "6))
  162.  (keybind  toggle-attach-file-to-fold ($menu "2 "7))
  163.  (keybind  describe-fold      ($menu "2 "8))
  164.  }}}
  165.  
  166.  {{{  move menu
  167.  (keybind  beginning-of-fold  ($menu "3 "0))
  168.  (keybind  end-of-fold        ($menu "3 "1))
  169.  (keybind  goto-line          ($menu "3 "2))
  170.  (keybind  next-page          ($menu "3 "3))
  171.  (keybind  previous-page      ($menu "3 "4))
  172.  (keybind  forward-word       ($menu "3 "5))
  173.  (keybind  backward-word      ($menu "3 "6))
  174.  }}}
  175.  
  176.  {{{  line menu
  177.  (keybind  open-line          ($menu "4 "0))
  178.  (keybind  delete-line        ($menu "4 "1))
  179.  (keybind  delete-to-end-of-line ($menu "4 "2))
  180.  (keybind  beginning-of-line  ($menu "4 "3))
  181.  (keybind  end-of-line        ($menu "4 "4))
  182.  (keybind  next-line          ($menu "4 "5))
  183.  (keybind  previous-line      ($menu "4 "6))
  184.  }}}
  185.  
  186.  {{{  word menu
  187.  (keybind  case-word-upper    ($menu "5 "0))
  188.  (keybind  case-word-lower    ($menu "5 "1))
  189.  (keybind  case-word-capitalize ($menu "5 "2))
  190.  }}}
  191.  
  192.  {{{  search menu
  193.  (keybind  search-forward             ($menu "6 "0))
  194.  (keybind  search-reverse             ($menu "6 "1))
  195.  (keybind  replace-string             ($menu "6 "2))
  196.  (keybind  query-replace-string       ($menu "6 "3))
  197.  (keybind  incremental-search-forward ($menu "6 "4))
  198.  (keybind  incremental-search-reverse ($menu "6 "5))
  199.  }}}
  200.  
  201.  {{{  mode menu
  202.  (keybind  add-mode-view      ($menu "7 "0))
  203.  (keybind  delete-mode-view   ($menu "7 "1))
  204.  (keybind  add-mode-overwrite ($menu "7 "2))
  205.  (keybind  delete-mode-overwrite ($menu "7 "3))
  206.  }}}
  207.  
  208.  {{{  extras menu
  209.  (keybind  define-macro       ($menu "8 "0))
  210.  (keybind  define-macro       ($menu "8 "1))
  211.  (keybind  execute-macro      ($menu "8 "2))
  212.  (keybind  set-language       ($menu "8 "3))
  213.  (keybind  describe-bindings  ($menu "8 "4))
  214.  (keybind  help               ($menu "8 "5))
  215.  }}}
  216. )
  217. }}}
  218.  
  219. {{{  mode para
  220. ( mode para
  221.  {{{  project menu
  222.  (keybind  edit-only       ($menu "0 "5))
  223.  (keybind  read-file       ($menu "0 "0))
  224.  (keybind  view-file       ($menu "0 "1))
  225.  (keybind  insert-file     ($menu "0 "2))
  226.  (keybind  save-file       ($menu "0 "3))
  227.  (keybind  write-file      ($menu "0 "4))
  228.  (keybind  shell           ($menu "0 "6))
  229.  (keybind  shell-command   ($menu "0 "7))
  230.  (keybind  edit-only       ($menu "0 "8))
  231.  }}}
  232.  
  233.  {{{  edit menu
  234.  (keybind  edit-only       ($menu "1 "0))
  235.  (keybind  delete-line               ($menu "1 "1))
  236.  (keybind  undo-delete-line          ($menu "1 "2))
  237.  (keybind  delete-to-end-of-line     ($menu "1 "3))
  238.  (keybind  copy-to-kill-buffer       ($menu "1 "4))
  239.  (keybind  insert-folded-kill-buffer ($menu "1 "5))
  240.  }}}
  241.  
  242.  {{{  fold menu
  243.  (keybind  open-fold          ($menu "2 "0))
  244.  (keybind  close-fold         ($menu "2 "1))
  245.  (keybind  enter-fold         ($menu "2 "2))
  246.  (keybind  exit-fold          ($menu "2 "3))
  247.  (keybind  unfold-fold        ($menu "2 "4))
  248.  (keybind  create-fold        ($menu "2 "5))
  249.  (keybind  toggle-file-fold   ($menu "2 "6))
  250.  (keybind  toggle-attach-file-to-fold ($menu "2 "7))
  251.  (keybind  describe-fold      ($menu "2 "8))
  252.  }}}
  253.  
  254.  {{{  move menu
  255.  (keybind  beginning-of-fold  ($menu "3 "0))
  256.  (keybind  end-of-fold        ($menu "3 "1))
  257.  (keybind  goto-line          ($menu "3 "2))
  258.  (keybind  next-page          ($menu "3 "3))
  259.  (keybind  previous-page      ($menu "3 "4))
  260.  (keybind  forward-word       ($menu "3 "5))
  261.  (keybind  backward-word      ($menu "3 "6))
  262.  }}}
  263.  
  264.  {{{  line menu
  265.  (keybind  open-line          ($menu "4 "0))
  266.  (keybind  delete-line        ($menu "4 "1))
  267.  (keybind  delete-to-end-of-line ($menu "4 "2))
  268.  (keybind  beginning-of-line  ($menu "4 "3))
  269.  (keybind  end-of-line        ($menu "4 "4))
  270.  (keybind  next-line          ($menu "4 "5))
  271.  (keybind  previous-line      ($menu "4 "6))
  272.  }}}
  273.  
  274.  {{{  word menu
  275.  (keybind  case-word-upper    ($menu "5 "0))
  276.  (keybind  case-word-lower    ($menu "5 "1))
  277.  (keybind  case-word-capitalize ($menu "5 "2))
  278.  }}}
  279.  
  280.  {{{  search menu
  281.  (keybind  search-forward             ($menu "6 "0))
  282.  (keybind  search-reverse             ($menu "6 "1))
  283.  (keybind  replace-string             ($menu "6 "2))
  284.  (keybind  query-replace-string       ($menu "6 "3))
  285.  (keybind  incremental-search-forward ($menu "6 "4))
  286.  (keybind  incremental-search-reverse ($menu "6 "5))
  287.  }}}
  288.  
  289.  {{{  mode menu
  290.  (keybind  add-mode-view      ($menu "7 "0))
  291.  (keybind  delete-mode-view   ($menu "7 "1))
  292.  (keybind  add-mode-overwrite ($menu "7 "2))
  293.  (keybind  delete-mode-overwrite ($menu "7 "3))
  294.  }}}
  295.  
  296.  {{{  extras menu
  297.  (keybind  define-macro       ($menu "8 "0))
  298.  (keybind  define-macro       ($menu "8 "1))
  299.  (keybind  execute-macro      ($menu "8 "2))
  300.  (keybind  set-language       ($menu "8 "3))
  301.  (keybind  describe-bindings  ($menu "8 "4))
  302.  (keybind  help               ($menu "8 "5))
  303.  }}}
  304. )
  305. }}}
  306.  
  307. {{{  os-extensions
  308. {{{  Project menu
  309. (os-extension ("MENU " Project,Read ))
  310. (os-extension ("MENU " Project,View ))
  311. (os-extension ("MENU " Project,Insert ))
  312. (os-extension ("MENU " Project,Save ))
  313. (os-extension ("MENU " Project,Write ))
  314. (os-extension ("MENU " Project,Save " & " Exit  ))
  315. (os-extension ("MENU " Project,New " Shell ))
  316. (os-extension ("MENU " Project,Command ))
  317. (os-extension ("MENU " Project,Quit ))
  318. }}}
  319. {{{  Edit menu
  320. (os-extension ("MENU " Edit,Transpose ))
  321. (os-extension ("MENU " Edit,Delete " line ))
  322. (os-extension ("MENU " Edit,Undo " delete " line  ))
  323. (os-extension ("MENU " Edit,Delete " to " eol ))
  324. (os-extension ("MENU " Edit,Copy " to " kill " buffer  ))
  325. (os-extension ("MENU " Edit,Fold " kill " buffer  ))
  326. }}}
  327. {{{  Fold menu
  328. (os-extension ("MENU " Fold,Open ))
  329. (os-extension ("MENU " Fold,Close ))
  330. (os-extension ("MENU " Fold,Enter ))
  331. (os-extension ("MENU " Fold,Exit ))
  332. (os-extension ("MENU " Fold,Unfold ))
  333. (os-extension ("MENU " Fold,Create ))
  334. (os-extension ("MENU " Fold,Toggle " File ))
  335. (os-extension ("MENU " Fold,Attach " File ))
  336. (os-extension ("MENU " Fold,Describe ))
  337. }}}
  338. {{{  Move menu
  339. (os-extension ("MENU " Move,Top " of " fold ))
  340. (os-extension ("MENU " Move,End " of " fold ))
  341. (os-extension ("MENU " Move,Goto " line ))
  342. (os-extension ("MENU " Move,Next " page ))
  343. (os-extension ("MENU " Move,Prev " page ))
  344. (os-extension ("MENU " Move,Next " word ))
  345. (os-extension ("MENU " Move,Prev " word ))
  346. }}}
  347. {{{  Line menu
  348. (os-extension ("MENU " Line,New " line ))
  349. (os-extension ("MENU " Line,Delete " line ))
  350. (os-extension ("MENU " Line,Delete " to " eol ))
  351. (os-extension ("MENU " Line,Beginning " of " line ))
  352. (os-extension ("MENU " Line,End " of " line ))
  353. (os-extension ("MENU " Line,Next " line ))
  354. (os-extension ("MENU " Line,Previous " line ))
  355. }}}
  356. {{{  Word menu
  357. (os-extension ("MENU " Word,Upper " word ))
  358. (os-extension ("MENU " Word,Lower " word ))
  359. (os-extension ("MENU " Word,Cap. " word ))
  360. }}}
  361. {{{  Search menu
  362. (os-extension ("MENU " Search,Forward ))
  363. (os-extension ("MENU " Search,Reverse ))
  364. (os-extension ("MENU " Search,Replace ))
  365. (os-extension ("MENU " Search,Query " s&r ))
  366. (os-extension ("MENU " Search,Incremental ))
  367. (os-extension ("MENU " Search,Reverse " incr. ))
  368. }}}
  369. {{{  Mode menu
  370. (os-extension ("MENU " Mode,Add " view ))
  371. (os-extension ("MENU " Mode,Del " view ))
  372. (os-extension ("MENU " Mode,Add " overwrite ))
  373. (os-extension ("MENU " Mode,Del " overwrite ))
  374. }}}
  375. {{{  Extras menu
  376. (os-extension ("MENU " Extras,Def " marco ))
  377. (os-extension ("MENU " Extras,End " def " marco ))
  378. (os-extension ("MENU " Extras,Execute " macro ))
  379. (os-extension ("MENU " Extras,Set " language ))
  380. (os-extension ("MENU " Extras,Describe " bind ))
  381. (os-extension ("MENU " Extras,Help ))
  382. }}}
  383. }}}
  384. }}}
  385. {{{  fold commands
  386. (mode edit
  387.   (keybind emori-set-mark ($csi "E "C "@ ))
  388.   (keybind emori-fold-region (M-$csi "E "C "@ ))
  389. )
  390. }}}
  391.  
  392. {{{  defmark
  393. (defmark pascal (("< "< "< ) (". ". ". ) (": ": ": ) ("> "> "> )))
  394. }}}
  395.  
  396. {{{  special keys
  397. (mode edit
  398.  (keybind describe-bindings ($helpkey))
  399. )
  400. (mode para
  401.  (keybind describe-bindings ($helpkey))
  402. )
  403. }}}
  404.  
  405. {{{  Arexx definitions
  406. (history arexx )
  407. (os-extension ("AREXXHIST "  history arexx ))
  408. (os-extension ("AREXX " letsbeep ",  failed))
  409. {{{  amsg
  410. (deffun amsg
  411.  (
  412.    message ( "[ history arexx "] )
  413. ) )
  414. }}}
  415. (os-extension ("AREXX " message ",  amsg))
  416. {{{  saserror
  417. ; this is a macro, that can be used to display an compiler error message
  418. ; first argument is the file name, second the line number and third the
  419. ; message string
  420. (deffun saserror
  421.  (
  422.    set-file-unchanged
  423.    read-file
  424.      get-history arexx 2
  425.      newline-and-indent
  426.    go-to-line
  427.      get-history arexx 1
  428.      newline-and-indent
  429.    amsg
  430. ))
  431. }}}
  432. (os-extension ("AREXX " saserror ",  saserror))
  433. {{{  get-line
  434. (deffun get-line
  435.  (
  436.    history-edit-line arexx "?
  437.      newline-and-indent
  438. ))
  439. }}}
  440. (os-extension ("AREXX " get-line ",  get-line))
  441. }}}
  442.